lock_module Module

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Uses

- kind_module

Subroutines

public subroutine linf(x, y, t, fout, klo, khi)

линейная аппроксимация TODO будет удобнее если переделать в функцию

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x(*)
real(kind=wp),	intent(in)			::	y(*)
real(kind=wp),	intent(in)			::	t
real(kind=wp),	intent(out)			::	fout
integer,	intent(in)			::	klo
integer,	intent(in)			::	khi

public subroutine lock(xa, n, x, klo, khi, ierr)

что делает?

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	xa(*)
integer,	intent(in)			::	n
real(kind=wp),	intent(in)			::	x
integer,	intent(inout)			::	klo
integer,	intent(inout)			::	khi
integer,	intent(inout)			::	ierr

public subroutine lock2(xa, n, x, klo, khi, ierr)

что делает

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	xa(*)
integer,	intent(in)			::	n
real(kind=wp),	intent(in)			::	x
integer,	intent(inout)			::	klo
integer,	intent(inout)			::	khi
integer,	intent(inout)			::	ierr